home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / misc / ReFluX.lha / ReFluX / ReFluX.asc < prev    next >
Text File  |  1999-02-20  |  505b  |  34 lines
  1. v$="$VER: ReFluX 1.0b (19.2.1998) James L Boyd"
  2.  
  3. ; REMEMBER to put Blitzlibs:amigalibs.res into Compiler Options!
  4.  
  5. del.w=10
  6.  
  7. If NumPars=1
  8.  
  9.   a$=Par$(1)
  10.  
  11.   If a$="?" OR a$="help" OR a$="-h"
  12.     a$="Usage : ReFlux <delay in 1-300 seconds>"
  13.     PutStr_ &a$
  14.     End
  15.   EndIf
  16.  
  17.   del=Val(a$)
  18.   If del<1 OR del>300 Then del=10
  19.  
  20. EndIf
  21.  
  22. del*50
  23.  
  24. WBStartup
  25.  
  26. loop
  27.   If (SetSignal_(0,#SIGBREAKF_CTRL_C) & #SIGBREAKF_CTRL_C) Then End
  28.   Delay_ del
  29.   For a=1 To 10
  30.     AllocMem_ $7ffffff0,#MEMF_PUBLIC
  31.   Next a
  32. Goto loop
  33.  
  34.